IF T3900,@500
IF -I500,@500
HOST_GIVE T3900
@500
IF T3901,@501
IF -I501,@501
HOST_GIVE T3901
@501
IF T3902,@502
IF -I502,@502
HOST_GIVE T3902
@502
IF T3903,@503
IF -I503,@503
HOST_GIVE T3903
@503
IF T3904,@504
IF -I504,@504
HOST_GIVE T3904
@504
IF T3905,@505
IF -I505,@505
HOST_GIVE T3905
@505
IF T3906,@506
IF -I506,@506
HOST_GIVE T3906
@506
IF T3907,@507
IF -I507,@507
HOST_GIVE T3907
@507
IF T3908,@508
IF -I508,@508
HOST_GIVE T3908
@508
IF T3909,@509
IF -I509,@509
HOST_GIVE T3909
@509
IF T3910,@510
IF -I510,@510
HOST_GIVE T3910
@510
IF T3911,@511
IF -I511,@511
HOST_GIVE T3911
@511
IF T3912,@512
IF -I512,@512
HOST_GIVE T3912
@512
IF T3913,@513
IF -I513,@513
HOST_GIVE T3913
@513
IF T3914,@514
IF -I514,@514
HOST_GIVE T3914
@514
IF T3915,@515
IF -I515,@515
HOST_GIVE T3915
@515
IF T3916,@516
IF -I516,@516
HOST_GIVE T3916
@516
IF T3917,@517
IF -I517,@517
HOST_GIVE T3917
@517
IF T3918,@518
IF -I518,@518
HOST_GIVE T3918
@518
IF T3919,@519
IF -I519,@519
HOST_GIVE T3919
@519
IF T3920,@520
IF -I520,@520
HOST_GIVE T3920
@520
IF T3949,@549
IF -I549,@549
HOST_GIVE T3949
@549
IF T3950,@550
IF -I550,@550
HOST_GIVE T3950
@550
IF T3951,@551
IF -I551,@551
HOST_GIVE T3951
@551
IF T3952,@552
IF -I552,@552
HOST_GIVE T3952
@552
IF T3953,@553
IF -I553,@553
HOST_GIVE T3953
@553
IF T3954,@554
IF -I554,@554
HOST_GIVE T3954
@554
IF T3955,@555
IF -I555,@555
HOST_GIVE T3955
@555
IF T3956,@556
IF -I556,@556
HOST_GIVE T3956
@556
IF T3957,@557
IF -I557,@557
HOST_GIVE T3957
@557
IF T3958,@558
IF -I558,@558
HOST_GIVE T3958
@558
IF T3959,@559
IF -I559,@559
HOST_GIVE T3959
@559
IF T3960,@560
IF -I560,@560
HOST_GIVE T3960
@560
IF T3961,@561
IF -I561,@561
HOST_GIVE T3961
@561
IF T3962,@562
IF -I562,@562
HOST_GIVE T3962
@562
IF T3963,@563
IF -I563,@563
HOST_GIVE T363
@563
IF T3964,@564
IF -I564,@564
HOST_GIVE T3964
@564